home *** CD-ROM | disk | FTP | other *** search
/ Mac Magazin/MacEasy 11 / Mac Magazin and MacEasy Magazine CD - Issue 11.iso / Sharewarebibliothek / Entwickler / WASTE 1.1b1 Distribution / WASTE Source / WELongCoords.p < prev    next >
Text File  |  1995-06-01  |  1KB  |  63 lines
  1. unit WELongCoords;
  2.  
  3. { WASTE PROJECT: }
  4. { Long Coordinates: data types and function prototypes }
  5.  
  6. { Copyright © 1993-1995 Marco Piovanelli }
  7. { All Rights Reserved }
  8.  
  9. interface
  10.     uses
  11.         Types;
  12.  
  13.     type
  14.  
  15.         LongPt = record
  16.                 case Integer of
  17.                     0: (
  18.                             v: LongInt;
  19.                             h: LongInt;
  20.                     );
  21.                     1: (
  22.                             vh: array[0..1] of LongInt;
  23.                     );
  24.             end;  { LongPt }
  25.  
  26.         LongRect = record
  27.                 case Integer of
  28.                     0: (
  29.                             top: LongInt;
  30.                             left: LongInt;
  31.                             bottom: LongInt;
  32.                             right: LongInt;
  33.                     );
  34.                     1: (
  35.                             topLeft: LongPt;
  36.                             botRight: LongPt;
  37.                     );
  38.             end;  { LongRect }
  39.  
  40.     function _WEPinInRange (value: LongInt;
  41.                                     rangeStart, rangeEnd: LongInt): LongInt;
  42.     procedure WELongPointToPoint ({const}
  43.                                     var lp: LongPt;
  44.                                     var p: Point);
  45.     procedure WEPointToLongPoint (p: Point;
  46.                                     var lp: LongPt);
  47.     procedure WESetLongRect (var lr: LongRect;
  48.                                     left, top, right, bottom: LongInt);
  49.     procedure WELongRectToRect ({const}
  50.                                     var lr: LongRect;
  51.                                     var r: Rect);
  52.     procedure WERectToLongRect ({const}
  53.                                     var r: Rect;
  54.                                     var lr: LongRect);
  55.     procedure WEOffsetLongRect (var lr: LongRect;
  56.                                     hOffset, vOffset: LongInt);
  57.     function WELongPointInLongRect ({const}
  58.                                     var lp: LongPt;
  59.                                     {const}
  60.                                     var lr: LongRect): Boolean;
  61.  
  62. implementation
  63. end.